option explicit	
Sub Main
dim S as string, ime as string, prezime as string, n as long
S = inputbox("unesi prezime i ime")
n = instr(S, " ")
prezime = left(S, n-1)
ime = right(s, n+1)
msgbox(ime)
msgbox(prezime)
End Sub